World Tours: Brazil/WorldTours: Brazil.iso/mac/content/main.dir/00057_Script_button interactive (color)

Text File | 2007-04-22 | 901b | 31 lines

property pSelf,fColor,bColor,handle,linkSprite

on beginsprite
  pSelf=sprite(the currentSpriteNum)
end

on mouseenter
  pSelf.forecolor=fColor
  if linkSprite<>sprite(0) then linkSprite.mouseenter()
  --cursor 280
end

on mouseleave
  pSelf.forecolor=bColor
  if linkSprite<>sprite(0) then linkSprite.mouseleave()
  --cursor -1
end

on mouseup
  if handle<>void then do(handle)
  if linkSprite<>sprite(0) then linkSprite.mouseup()
end

on getPropertyDescriptionList
  description = [:]
  addProp description,#fColor, [#default:5, #format:#integer, #comment:"mouse over color"]
  addProp description,#bColor, [#default:0, #format:#integer, #comment:"mouse out color"]
  addProp description,#handle, [#default:"", #format:#string, #comment:"command"]
  addProp description,#linkSprite, [#default:sprite(0), #format:#sprite, #comment:"Link Sprite"]
  return description
end